﻿Public Class PRN_Nummern
    Public Sub tick()


        If Form1.s1 = "" Then
            Label1.Text = "00"
            Label1.ForeColor = Color.Red
        Else
            Label1.Text = Form1.s1
            Label1.ForeColor = Color.Green
        End If


        If Form1.s2 = "" Then
            Label2.Text = "00"
            Label2.ForeColor = Color.Red
        Else
            Label2.Text = Form1.s2
            Label2.ForeColor = Color.Green
        End If


        If Form1.s3 = "" Then
            Label3.Text = "00"
            Label3.ForeColor = Color.Red
        Else
            Label3.Text = Form1.s3
            Label3.ForeColor = Color.Green
        End If


        If Form1.s4 = "" Then
            Label4.Text = "00"
            Label4.ForeColor = Color.Red
        Else
            Label4.Text = Form1.s4
            Label4.ForeColor = Color.Green
        End If


        If Form1.s5 = "" Then
            Label5.Text = "00"
            Label5.ForeColor = Color.Red
        Else
            Label5.Text = Form1.s5
            Label5.ForeColor = Color.Green
        End If


        If Form1.s6 = "" Then
            Label6.Text = "00"
            Label6.ForeColor = Color.Red
        Else
            Label6.Text = Form1.s6
            Label6.ForeColor = Color.Green
        End If


        If Form1.s7 = "" Then
            Label7.Text = "00"
            Label7.ForeColor = Color.Red
        Else
            Label7.Text = Form1.s7
            Label7.ForeColor = Color.Green
        End If


        If Form1.s8 = "" Then
            Label8.Text = "00"
            Label8.ForeColor = Color.Red
        Else
            Label8.Text = Form1.s8
            Label8.ForeColor = Color.Green
        End If


        If Form1.s9 = "" Then
            Label9.Text = "00"
            Label9.ForeColor = Color.Red
        Else
            Label9.Text = Form1.s9
            Label9.ForeColor = Color.Green
        End If


        If Form1.s10 = "" Then
            Label10.Text = "00"
            Label10.ForeColor = Color.Red
        Else
            Label10.Text = Form1.s10
            Label10.ForeColor = Color.Green
        End If


        If Form1.s11 = "" Then
            Label11.Text = "00"
            Label11.ForeColor = Color.Red
        Else
            Label11.Text = Form1.s11
            Label11.ForeColor = Color.Green
        End If


        If Form1.s12 = "" Then
            Label12.Text = "00"
            Label12.ForeColor = Color.Red
        Else
            Label12.Text = Form1.s12
            Label12.ForeColor = Color.Green
        End If







    End Sub
    Private Sub PRN_Nummern_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.TopMost = True
    End Sub
End Class